home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / countwords.raz < prev    next >
Text File  |  1994-05-10  |  296b  |  20 lines
  1. /** $VER: CountWords.raz 1.0 (10.5.94)
  2.  **
  3.  ** Compte le nombre de mots dans le document.
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. numwords = 0
  9. Cursor 1 1
  10.  
  11. Lock DISPLAY STATUS ON
  12. DO FOREVER
  13.     Cursor WORD 1
  14.     IF (RC > 0) THEN BREAK
  15.     numwords = numwords + 1
  16. END
  17. Lock DISPLAY STATUS OFF
  18.  
  19. SAY numwords "words."
  20.